home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS12.ADF / AmigaBBS / usermaint (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-08-05  |  13KB  |  303 lines
  1. ERASE ABCS$:DIM ABCS$(185)
  2. ON BREAK GOSUB Teflon
  3. BREAK ON
  4. teetse=1
  5.  
  6. Main:
  7. GOSUB UserMaint
  8. CHAIN "df0:Sysop",10,ALL
  9.  
  10. Modem:
  11. IF rings=0 THEN OtherModem
  12. x=FRE(0)
  13. FOR j=1 TO LEN(a$):p$=MID$(a$,j,1)
  14. PRINT p$;:PRINT#1,p$;:NEXT j
  15. a$="":p$="":RETURN
  16.  
  17. OtherModem:
  18. x=FRE(0)
  19. FOR j=1 TO LEN(a$):p$=MID$(a$,j,1)
  20. PRINT p$;:NEXT j
  21. a$="":p$="":RETURN
  22.  
  23. Answers:
  24. telly=0:t$="":t=0:i$="":ch$="":alter=0:IF rings=0 THEN SomeAnswers
  25. WHILE 1 AND alter<1
  26.   WHILE LOC(1)<>0
  27.     ch$=INPUT$(1,1)
  28.     equivs=ASC(ch$) AND 127:IF equivs<>1 THEN ch$=CHR$(equivs)
  29.     i$=i$+ch$:equivs=0
  30.     telly=telly+1:IF telly=78 THEN ch$=r$:telly=0
  31.     IF ch$=CHR$(8) AND LEN(i$)>=2 THEN i$=LEFT$(i$,LEN(i$)-2):telly=telly-1
  32.     IF ch$=CHR$(10) OR ch$=CHR$(13) OR ch$=r$ THEN alter=3:telly=0
  33.     a$=ch$:GOSUB Modem:ch$=""
  34.   WEND
  35.   ch$=INKEY$:i$=i$+ch$
  36.   a$=ch$:GOSUB Modem
  37.   IF ch$=CHR$(10) OR ch$=CHR$(13) OR ch$=r$ THEN telly=0:GOTO MoreAnswers
  38.   IF ch$=CHR$(8) AND LEN(i$)>=2 THEN i$=LEFT$(i$,LEN(i$)-2)
  39.   ch$="":connect=PEEK (&Hbfd*&H1000+&H0):IF connect<>0 THEN okp=0:RETURN
  40. WEND
  41. IF i$<>"" THEN MoreAnswers
  42. SomeAnswers:
  43. ch$=INKEY$:i$=i$+ch$:a$=ch$:GOSUB Modem
  44. IF ch$= CHR$(10) OR ch$=CHR$(13) OR ch$=r$ THEN MoreAnswers
  45. IF ch$=CHR$(8) AND LEN(i$)>=2 THEN i$=LEFT$(i$,LEN(i$)-2)
  46. ch$=""
  47. GOTO SomeAnswers
  48. MoreAnswers:
  49. IF okp<>1 THEN RETURN
  50. IF i$="" THEN ch$="":GOTO Answers
  51. t$=i$:IF LEN(t$)>80 THEN t$=LEFT$(t$,78)+r$
  52. RETURN
  53.  
  54. SeqRead:
  55. ERASE ABCS$:DIM ABCS$(185)
  56. a$=r$+r$+"[>                    K Quits/ Space pauses until <Return>              <]"+r$:GOSUB Modem
  57. OPEN "I", #3, file$
  58. ReadSeq:
  59. j=0:L=0:k=0
  60. WHILE NOT EOF(3)
  61.   x=FRE(0):j=j+1
  62.   LINE INPUT#3,ABCS$(j):ABCS$(j)=ABCS$(j)+r$
  63. WEND
  64. CLOSE#3:k=j:L=0
  65. WHILE L<k
  66.   L=L+1:a$=ABCS$(L):GOSUB Modem
  67.   CheckSeq:
  68.   t$="":t=0:i$="":ch$="":IF rings=0 THEN SomeCheckSeq
  69.   WHILE LOC(1)<>0
  70.     ch$=INPUT$(1,1):equivs=ASC(ch$) AND 127:IF equivs<>1 THEN ch$=CHR$(equivs)
  71.     i$=i$+ch$:equivs=0:a$=ch$:GOSUB Modem
  72.   WEND
  73.   IF i$<>"" THEN MoreCheckSeq
  74.   SomeCheckSeq:
  75.   ch$=INKEY$:i$=i$+ch$:a$=ch$:GOSUB Modem
  76.   MoreCheckSeq:
  77.   IF i$=CHR$(32) THEN GOSUB Answers
  78.   IF i$=CHR$(75) OR i$=CHR$(107) THEN L=k+1
  79. WEND
  80. ERASE ABCS$:DIM ABCS$(185):RETURN
  81.  
  82. A1:
  83. GOSUB Modem:GOSUB Answers:RETURN
  84.  
  85. CheckConTime:
  86. Contime$=TIME$:ChEntTime$=RIGHT$(Enttime$,5):Contime$=RIGHT$(Contime$,5)
  87. Contime=VAL(Contime$):Enttime=VAL(ChEntTime$)
  88. IF Contime-Enttime>30 AND Veru$="000" THEN okp=0:RETURN
  89. IF Contime-Enttime>45 AND Veru$="007" THEN okp=0:RETURN
  90. okp=1:RETURN
  91.  
  92. UserMaint:
  93. a$=r$+"E- Edit  P- Print File  S- Scan  X- Exit:":GOSUB A1:MenS$=UCASE$(LEFT$(t$,1))
  94. IF MenS$="E" THEN UserEdit
  95. IF MenS$="P" THEN UserFilePrint
  96. IF MenS$="S" THEN UserSearch
  97. IF MenS$="X" THEN CLOSE#4:RETURN
  98. a$=r$+"No such Command!":GOSUB Modem:GOTO UserMaint
  99.  
  100. UserEdit:
  101. a$=r$+"G- Get User  P- Print User  C- Change Option  S- Save User  X- Exit:":GOSUB A1
  102. MenS$=UCASE$(LEFT$(t$,1))
  103. IF MenS$="G" THEN GetUser
  104. IF MenS$="P" THEN GOSUB PrintUser:GOTO UserEdit
  105. IF MenS$="S" THEN SaveUser
  106. IF MenS$="C" THEN ChangeUser
  107. IF MenS$="X" THEN CLOSE#4:GOTO UserMaint
  108. GOTO UserEdit
  109.  
  110. GetUser:
  111. a$=r$+"Find by (N)ame or by (I)D :":GOSUB A1:IF LEFT$(t$,1)=CHR$(10) OR LEFT$(t$,1)=CHR$(13) THEN UserEdit
  112. MenS$=UCASE$(LEFT$(t$,1)):IF MenS$="I" THEN detedt=1:GOTO MoreGetUser
  113. detedt=0
  114. a$="Enter User's First Name:":GOSUB A1:GetName1$=UCASE$(LEFT$(t$,LEN(t$)-1)):IF LEN(Name1$)>9 THEN Name1$=LEFT$(Name1$,9)
  115. a$=r$+"Enter User's Last Name:":GOSUB A1:GetName2$=UCASE$(LEFT$(t$,LEN(t$)-1)):IF LEN(Name2$)>15 THEN Name2$=LEFT$(Name2$,15)
  116. UsernaMe$=GetName1$+" "+GetName2$+"=":UsernaMe=LEN(UsernaMe$):Ddt=0:Dch=0
  117. WHILE Ddt<1
  118.   Dch=Dch+1:uil$=STR$(Dch):uil$=RIGHT$(uil$,1)
  119.   OPEN "I",#3,"df1:Storehouse"+uil$
  120.   Dxq=0:Lmn=0:Dab=0
  121.   WHILE NOT EOF(3)
  122.     Dxq=Dxq+1
  123.     LINE INPUT#3, ABCS$(Dxq)
  124.   WEND
  125.   Dzz=0
  126.   WHILE Lmn<1
  127.     Dzz=Dzz+1
  128.     IF UsernaMe$=LEFT$(ABCS$(Dzz),UsernaMe) THEN Lmn=5:Dab=Dzz
  129.     IF Dzz=Dxq AND Lmn<>5 THEN Lmn=2
  130.   WEND
  131.   IF Lmn=5 THEN Ddt=5:GetUserID$=RIGHT$(ABCS$(Dab),LEN(ABCS$(Dab))-UsernaMe)
  132.   IF Lmn=2 AND Dch=6 THEN Ddt=3
  133.   CLOSE#3
  134. WEND
  135. IF Ddt=3 THEN a$=r$+"No Such User.":GOSUB Modem:GOTO UserEdit
  136. GetUserID=VAL(GetUserID$)
  137. MoreGetUser:
  138. IF detedt=1 THEN a$=r$+"Enter User's ID:":GOSUB A1:IF LEFT$(t$,1)=CHR$(10) OR LEFT$(t$,1)=CHR$(13) THEN UserEdit
  139. IF detedt=1 THEN GetUserID$=LEFT$(t$,LEN(t$)-1):GetUserID=VAL(t$)
  140. CLOSE#4:OPEN "R", #4, "df1:USER",120
  141. FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
  142. FIELD #4, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
  143. GET#4, GetUserID
  144. GetName1$=N1$:GetName2$=N2$:GetAddr$=Adr$:GetComp$=Co$:GetCity$=CI$
  145. GetState$=STA$:GetAge$=AG$:GetPass$=PAS$:GetChk$=check$:GetVaru$=Valu$
  146. GetB1$=B1$:GetB2$=B2$:GetB3$=B3$:GetB4$=B4$:GetB5$=B5$:GetB6$=B6$:GetB7$=B7$:GetB8$=B8$:GetB9$=B9$
  147. GetE1$=EM1$:GetE2$=EM2$:GetE3$=EM3$:GetE4$=EM4$:GetE5$=EM5$
  148. GetVte1$=Vte1$:GetVte2$=Vte2$:GetVte3$=Vte3$:CLOSE#4
  149. GOSUB ShowUserInfo:GOTO UserEdit
  150.  
  151. ShowUserInfo:
  152. ewan$=SPACE$(5)
  153. a$=r$+"1)First Name:"+GetName1$+"2)Last Name:"+GetName2$+r$+"3)Address:"+GetAddr$:GOSUB Modem
  154. a$=r$+"4)City:"+GetCity$+r$+"5)State:"+GetState$+r$+"6)Computer:"+GetComp$:GOSUB Modem
  155. a$=r$+"7)Age:"+GetAge$+r$+"8)Password:"+GetPass$+r$+"9)Valid. Level:"+GetVaru$:GOSUB Modem
  156. a$=r$+"10)HM Board1:"+GetB1$+ewan$+"11)HM Board2:"+GetB2$+ewan$+"12)HM Board3:"+GetB3$:GOSUB Modem
  157. a$=r$+"13)HM Board4:"+GetB4$+ewan$+"14)HM Board5:"+GetB5$+ewan$+"15)HM Board6:"+GetB6$:GOSUB Modem
  158. a$=r$+"16)HM Board7:"+GetB7$+ewan$+"17)HM Board8:"+GetB8$+ewan$+"18)HM Board9:"+GetB9$:GOSUB Modem
  159. a$=r$+"19)Mail1:"+GetE1$+ewan$+"20)Mail2:"+GetE2$+ewan$+"21)Mail3:"+GetE3$+ewan$+"22)Mail4:"+GetE4$+ewan$+"23)Mail5:"+GetE5$:GOSUB Modem
  160. a$=r$+"24)Check$:"+GetChk$:GOSUB Modem
  161. a$=r$+"25)Vote1:"+GetVte1$+ewan$+"26)Vote2:"+GetVte2$+ewan$+"27)Vote3:"+GetVte3$:GOSUB Modem
  162. RETURN
  163.  
  164. PrintUser:
  165. ewan$=SPACE$(5)
  166. OPEN "O", #5,"Lpt1:"
  167. a$=r$+"1)First Name:"+GetName1$+r$+"2)Last Name:"+GetName2$+r$+"3)Address:"+GetAddr$
  168. PRINT#5,a$
  169. a$=r$+"4)City:"+GetCity$+r$+"5)State:"+GetState$+r$+"6)Computer:"+GetComp$
  170. PRINT#5,a$
  171. a$=r$+"7)Age:"+GetAge$+r$+"8)Password:"+GetPass$+r$+"9)Valid. Level:"+GetVaru$
  172. PRINT#5,a$
  173. a$=r$+"10)HM Board1:"+GetB1$+ewan$+"11)HM Board2:"+GetB2$+ewan$+"12)HM Board3:"+GetB3$
  174. PRINT#5,a$
  175. a$=r$+"13)HM Board4:"+GetB4$+ewan$+"14)HM Board5:"+GetB5$+ewan$+"15)HM Board6:"+GetB6$
  176. PRINT#5,a$
  177. a$=r$+"16)HM Board7:"+GetB7$+ewan$+"17)HM Board8:"+GetB8$+ewan$+"18)HM Board9:"+GetB9$
  178. PRINT#5,a$
  179. a$=r$+"19)Mail1:"+GetE1$+ewan$+"20)Mail2:"+GetE2$+ewan$+"21)Mail3:"+GetE3$+ewan$+"22)Mail4:"+GetE4$+ewan$+"23)Mail5:"+GetE5$
  180. PRINT#5,a$
  181. a$=r$+"25)Vote1:"+GetVte1$+ewan$+"26)Vote2:"+GetVte2$+ewan$+"27)Vote3:"+GetVte3$
  182. PRINT#5,a$
  183. CLOSE#5:RETURN
  184.  
  185. ChangeUser:
  186. a$=r$+"Change which option (1-27):":GOSUB A1:IF LEFT$(t$,1)=CHR$(10) OR LEFT$(t$,1)=CHR$(13) THEN UserEdit
  187. lable=VAL(t$):IF lable<1 OR lable>27 THEN UserEdit
  188. IF lable=9 THEN ValidChangeUser
  189. a$=r$+"Change to:":GOSUB A1:IF LEFT$(t$,1)=CHR$(10) OR LEFT$(t$,1)=CHR$(13) THEN UserEdit
  190. MoreChangeUser:
  191. IF lable=1 THEN GetName1$=UCASE$(LEFT$(t$,LEN(t$)-1))
  192. IF lable=2 THEN GetName2$=UCASE$(LEFT$(t$,LEN(t$)-1))
  193. IF lable=3 THEN GetAddr$=UCASE$(LEFT$(t$,LEN(t$)-1))
  194. IF lable=4 THEN GetCity$=UCASE$(LEFT$(t$,LEN(t$)-1))
  195. IF lable=5 THEN GetState$=UCASE$(LEFT$(t$,LEN(t$)-1))
  196. IF lable=6 THEN GetComp$=UCASE$(LEFT$(t$,LEN(t$)-1))
  197. IF lable=7 THEN GetAge$=LEFT$(t$,LEN(t$)-1)
  198. IF lable=8 THEN GetPass$=UCASE$(LEFT$(t$,LEN(t$)-1))
  199. IF lable=10 THEN GetB1$=UCASE$(LEFT$(t$,LEN(t$)-1))
  200. IF lable=11 THEN GetB2$=UCASE$(LEFT$(t$,LEN(t$)-1))
  201. IF lable=12 THEN GetB3$=UCASE$(LEFT$(t$,LEN(t$)-1))
  202. IF lable=13 THEN GetB4$=UCASE$(LEFT$(t$,LEN(t$)-1))
  203. IF lable=14 THEN GetB5$=UCASE$(LEFT$(t$,LEN(t$)-1))
  204. IF lable=15 THEN GetB6$=UCASE$(LEFT$(t$,LEN(t$)-1))
  205. IF lable=16 THEN GetB7$=UCASE$(LEFT$(t$,LEN(t$)-1))
  206. IF lable=17 THEN GetB8$=UCASE$(LEFT$(t$,LEN(t$)-1))
  207. IF lable=18 THEN GetB9$=UCASE$(LEFT$(t$,LEN(t$)-1))
  208. IF lable=19 THEN GetE1$=UCASE$(LEFT$(t$,LEN(t$)-1))
  209. IF lable=20 THEN GetE2$=UCASE$(LEFT$(t$,LEN(t$)-1))
  210. IF lable=21 THEN GetE3$=UCASE$(LEFT$(t$,LEN(t$)-1))
  211. IF lable=22 THEN GetE4$=UCASE$(LEFT$(t$,LEN(t$)-1))
  212. IF lable=23 THEN GetE5$=UCASE$(LEFT$(t$,LEN(t$)-1))
  213. IF lable=24 AND Veru$="021" THEN GetChk$=UCASE$(LEFT$(t$,LEN(t$)-1))
  214. IF lable=24 AND Veru$<>"021" THEN a$=r$+"Change not allowed.":GOSUB Modem
  215. IF lable=25 THEN GetVte1$=LEFT$(t$,1)
  216. IF lable=26 THEN GetVte2$=LEFT$(t$,1)
  217. IF lable=27 THEN GetVte3$=LEFT$(t$,1)
  218. GOSUB ShowUserInfo:GOTO UserEdit
  219.  
  220. ValidChangeUser:
  221. a$=r$+"1)New User:000":GOSUB Modem
  222. a$=r$+"2)Validated User:007":GOSUB Modem
  223. a$=r$+"3)Assistant Sysop:014":GOSUB Modem
  224. a$=r$+"4)Sysop:021":GOSUB Modem
  225. a$=r$+" Which Level (1-4):":GOSUB A1:MenS$=LEFT$(t$,1)
  226. IF MenS$="1" THEN GetVaru$="000":GOSUB ShowUserInfo:GOTO UserEdit
  227. IF MenS$="2" THEN GetVaru$="007":GOSUB ShowUserInfo:GOTO UserEdit
  228. IF Veru$<>"021" THEN a$=r$+"Command not allowed":GOSUB Modem:GOTO UserEdit
  229. IF MenS$="3" THEN GetVaru$="014":GOSUB ShowUserInfo:GOTO UserEdit
  230. IF MenS$="4" THEN GetVaru$="021":GOSUB ShowUserInfo:GOTO UserEdit
  231. GOTO ValidChangeUser
  232.  
  233. SaveUser:
  234. CLOSE#4:OPEN "R", #4, "df1:USER",120
  235. FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
  236. FIELD #4, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
  237. GET#4, GetUserID
  238. LSET N1$=GetName1$:LSET N2$=GetName2$:LSET Adr$=GetAddr$
  239. LSET Co$=GetComp$:LSET CI$=GetCity$:LSET STA$=GetState$
  240. LSET AG$=GetAge$:LSET PAS$=GetPass$:LSET Valu$=GetVaru$
  241. LSET B1$=GetB1$:LSET B2$=GetB2$:LSET B3$=GetB3$
  242. LSET B4$=GetB4$:LSET B5$=GetB5$:LSET B6$=GetB6$
  243. LSET B7$=GetB7$:LSET B8$=GetB8$:LSET B9$=GetB9$
  244. LSET EM1$=GetE1$:LSET EM2$=GetE2$:LSET EM3$=GetE3$:LSET EM4$=GetE4$
  245. LSET EM5$=GetE5$:LSET check$=GetChk$
  246. LSET Vte1$=GetVte1$:LSET Vte2$=GetVte2$:LSET Vte3$=GetVte3$
  247. PUT#4,GetUserID
  248. CLOSE#5:CLOSE#4
  249. GOTO UserEdit
  250.  
  251. UserFilePrint: 
  252. CLOSE#4:OPEN "R", #4, "df1:USER",120
  253. FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
  254. FIELD #4, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
  255. Dch=0:Ddd=0
  256. WHILE Dch<1
  257.   Ddd=Ddd+1
  258.   GET#4, Ddd
  259.   IF check$<>"P" THEN Dch=1
  260.   GetName1$=N1$:GetName2$=N2$:GetAddr$=Adr$:GetComp$=Co$:GetCity$=CI$
  261.   GetState$=STA$:GetAge$=AG$:GetPass$=PAS$:GetChk$=check$:GetVaru$=Valu$
  262.   GetB1$=B1$:GetB2$=B2$:GetB3$=B3$:GetB4$=B4$:GetB5$=B5$:GetB6$=B6$:GetB7$=B7$:GetB8$=B8$:GetB9$=B9$
  263.   GetE1$=E1$:GetE2$=E2$:GetE3$=E3$:GetE4$=E4$:GetE5$=E5$
  264.   GetVte1$=Vte1$:GetVte2$=Vte2$:GetVte3$=Vte3$
  265.   GOSUB PrintUser
  266. WEND
  267. CLOSE#5:CLOSE#4
  268. GOTO UserMaint
  269.  
  270. UserSearch:
  271. a$=r$+"Search for:":GOSUB Modem
  272. a$=r$+"1)First Name     2)Last Name     3)Computer Type":GOSUB Modem
  273. a$=r$+"4)City           5)State":GOSUB A1:IF LEFT$(t$,1)=CHR$(10) OR IF LEFT$(t$,1)=CHR$(13) THEN UserMaint
  274. lable=VAL(t$):IF lable<1 OR lable>5 THEN UserMaint
  275. a$=r$+"Enter Search String:":GOSUB A1:SearStr$=UCASE$(LEFT$(t$,LEN(t$)-1))
  276. CLOSE#4:OPEN "R", #4, "df1:USER",120
  277. FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
  278. FIELD #4, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
  279. Dch=0:Ddd=0
  280. WHILE Dch<>1
  281.   Ddd=Ddd+1
  282.   GET#4, Ddd
  283.   IF check$<>"P" THEN Dch=1
  284.   GetName1$=N1$:GetName2$=N2$:GetAddr$=Adr$:GetComp$=Co$:GetCity$=CI$
  285.   GetState$=STA$:GetAge$=AG$:GetPass$+PAS$:GetChk$=check$:GetVaru$=Valu$
  286.   GetB1$=B1$:GetB2$=B2$:GetB3$=B3$:GetB4$=B4$:GetB5$=B5$:GetB6$=B6$:GetB7$=B7$:GetB8$=B8$:GetB9$=B9$
  287.   GetE1$=E1$:GetE2$=E2$:GetE3$=E3$:GetE4$=E4$:GetE5$=E5$
  288.   GetVte1$=Vte1$:GetVte2$=Vte2$:GetVte3$=Vte3$
  289.   IF lable=1 AND SearStr$=LEFT$(N1$,LEN(SearStr$) THEN GOSUB PrintUser
  290.   IF lable=2 AND SearStr$=LEFT$(N2$,LEN(SearStr$) THEN GOSUB PrintUser
  291.   IF lable=3 AND SearStr$=LEFT$(Co$,LEN(SearStr$) THEN GOSUB PrintUser
  292.   IF lable=4 AND SearStr$=LEFT$(CI$,LEN(SearStr$) THEN GOSUB PrintUser
  293.   IF lable=5 AND SearStr$=LEFT$(STA$,LEN(SearStr$) THEN GOSUB PrintUser
  294. WEND
  295. CLOSE#5:CLOSE#4
  296. GOTO UserMaint
  297.  
  298. Teflon:
  299. IF teetse=1 THEN a$=r$+"Sorry, not allowed.":GOSUB Modem:RETURN
  300. IF teetse=0 THEN ltomr=1:teetse=1:RETURN
  301. RETURN
  302.  
  303.